home *** CD-ROM | disk | FTP | other *** search
/ Summit / Summit Recordable CD-ROM.ISO / screen / 192.spr < prev    next >
Encoding:
Text File  |  1994-08-11  |  10.3 KB  |  273 lines

  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 08/11/94               192.SPR                 20:37:56 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Duncan Halstead                                         
  8. *       *                                                         
  9. *       * Copyright (c) 1994 CD-ROM, Inc.                         
  10. *       * 603 Park Point Dr.                                      
  11. *       * Golden, CO  80401                                       
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. *       *********************************************************
  35. *       *                                                         
  36. *       *               Windows Window definitions                
  37. *       *                                                         
  38. *       *********************************************************
  39. *
  40.  
  41. IF NOT WEXIST("_qsh1880c6")
  42.     DEFINE WINDOW _qsh1880c6 ;
  43.         AT  0.000, 0.000  ;
  44.         SIZE 27.231,58.000 ;
  45.         TITLE "Warewashing Systems" ;
  46.         FONT "MS Sans Serif", 8 ;
  47.         FLOAT ;
  48.         NOCLOSE ;
  49.         MINIMIZE ;
  50.         SYSTEM
  51.     MOVE WINDOW _qsh1880c6 CENTER
  52. ENDIF
  53.  
  54.  
  55. *       *********************************************************
  56. *       *                                                         
  57. *       *                192/Windows Screen Layout                
  58. *       *                                                         
  59. *       *********************************************************
  60. *
  61.  
  62. #REGION 1
  63. IF WVISIBLE("_qsh1880c6")
  64.     ACTIVATE WINDOW _qsh1880c6 SAME
  65. ELSE
  66.     ACTIVATE WINDOW _qsh1880c6 NOSHOW
  67. ENDIF
  68. @ 0.000,0.000 SAY (LOCFILE("bmp\192.bmp","BMP|ICO|PCT|ICN", "Where is 192?" )) BITMAP ;
  69.     SIZE 27.077,57.600 ;
  70.     ISOMETRIC ;
  71.     STYLE "T"
  72. @ 0.923,2.400 GET abc ;
  73.     PICTURE "@*IHN " ;
  74.     SIZE 7.538,23.400,0.800 ;
  75.     DEFAULT 0 ;
  76.     FONT "MS Sans Serif", 8 ;
  77.     VALID _qsh18812q()
  78. @ 8.462,2.000 GET abc ;
  79.     PICTURE "@*IHN " ;
  80.     SIZE 8.923,23.800,0.800 ;
  81.     DEFAULT 0 ;
  82.     FONT "MS Sans Serif", 8 ;
  83.     VALID _qsh18818s()
  84. @ 17.385,2.000 GET abc ;
  85.     PICTURE "@*IHN " ;
  86.     SIZE 8.231,24.600,0.800 ;
  87.     DEFAULT 0 ;
  88.     FONT "MS Sans Serif", 8 ;
  89.     VALID _qsh1881j3()
  90. @ 1.538,26.600 GET abc ;
  91.     PICTURE "@*IHN " ;
  92.     SIZE 6.154,28.200,0.800 ;
  93.     DEFAULT 0 ;
  94.     FONT "MS Sans Serif", 8 ;
  95.     VALID _qsh1881p9()
  96. @ 7.615,26.400 GET abc ;
  97.     PICTURE "@*IHN " ;
  98.     SIZE 6.077,28.200,0.800 ;
  99.     DEFAULT 0 ;
  100.     FONT "MS Sans Serif", 8 ;
  101.     VALID _qsh1881up()
  102. @ 13.615,26.800 GET abc ;
  103.     PICTURE "@*IHN " ;
  104.     SIZE 5.538,28.000,0.800 ;
  105.     DEFAULT 0 ;
  106.     FONT "MS Sans Serif", 8 ;
  107.     VALID _qsh18820a()
  108. @ 19.231,27.400 GET abc ;
  109.     PICTURE "@*IHN " ;
  110.     SIZE 6.615,26.800,0.800 ;
  111.     DEFAULT 0 ;
  112.     FONT "MS Sans Serif", 8 ;
  113.     VALID _qsh18825j()
  114.  
  115. IF NOT WVISIBLE("_qsh1880c6")
  116.     ACTIVATE WINDOW _qsh1880c6
  117. ENDIF
  118.  
  119. READ CYCLE
  120.  
  121. RELEASE WINDOW _qsh1880c6
  122.  
  123. #REGION 0
  124.  
  125. SET READBORDER &rborder
  126.  
  127. IF m.talkstat = "ON"
  128.     SET TALK ON
  129. ENDIF
  130. IF m.compstat = "ON"
  131.     SET COMPATIBLE ON
  132. ENDIF
  133.  
  134.  
  135. *       *********************************************************
  136. *       *                                                         
  137. *       * _QSH18812Q           abc VALID                          
  138. *       *                                                         
  139. *       * Function Origin:                                        
  140. *       *                                                         
  141. *       * From Platform:       Windows                            
  142. *       * From Screen:         192,     Record Number:    3       
  143. *       * Variable:            abc                                
  144. *       * Called By:           VALID Clause                       
  145. *       * Snippet Number:      1                                  
  146. *       *                                                         
  147. *       *********************************************************
  148. *
  149. FUNCTION _qsh18812q     &&  abc VALID
  150. #REGION 1
  151. USE CLOSEUP
  152. GO 1254
  153. DO ZOOM.SPR
  154.  
  155. *       *********************************************************
  156. *       *                                                         
  157. *       * _QSH18818S           abc VALID                          
  158. *       *                                                         
  159. *       * Function Origin:                                        
  160. *       *                                                         
  161. *       * From Platform:       Windows                            
  162. *       * From Screen:         192,     Record Number:    4       
  163. *       * Variable:            abc                                
  164. *       * Called By:           VALID Clause                       
  165. *       * Snippet Number:      2                                  
  166. *       *                                                         
  167. *       *********************************************************
  168. *
  169. FUNCTION _qsh18818s     &&  abc VALID
  170. #REGION 1
  171. USE CLOSEUP
  172. GO 1255
  173. DO ZOOM.SPR
  174.  
  175. *       *********************************************************
  176. *       *                                                         
  177. *       * _QSH1881J3           abc VALID                          
  178. *       *                                                         
  179. *       * Function Origin:                                        
  180. *       *                                                         
  181. *       * From Platform:       Windows                            
  182. *       * From Screen:         192,     Record Number:    5       
  183. *       * Variable:            abc                                
  184. *       * Called By:           VALID Clause                       
  185. *       * Snippet Number:      3                                  
  186. *       *                                                         
  187. *       *********************************************************
  188. *
  189. FUNCTION _qsh1881j3     &&  abc VALID
  190. #REGION 1
  191. USE CLOSEUP
  192. GO 1256
  193. DO ZOOM.SPR
  194.  
  195. *       *********************************************************
  196. *       *                                                         
  197. *       * _QSH1881P9           abc VALID                          
  198. *       *                                                         
  199. *       * Function Origin:                                        
  200. *       *                                                         
  201. *       * From Platform:       Windows                            
  202. *       * From Screen:         192,     Record Number:    6       
  203. *       * Variable:            abc                                
  204. *       * Called By:           VALID Clause                       
  205. *       * Snippet Number:      4                                  
  206. *       *                                                         
  207. *       *********************************************************
  208. *
  209. FUNCTION _qsh1881p9     &&  abc VALID
  210. #REGION 1
  211. USE CLOSEUP
  212. GO 1257
  213. DO ZOOM.SPR
  214.  
  215. *       *********************************************************
  216. *       *                                                         
  217. *       * _QSH1881UP           abc VALID                          
  218. *       *                                                         
  219. *       * Function Origin:                                        
  220. *       *                                                         
  221. *       * From Platform:       Windows                            
  222. *       * From Screen:         192,     Record Number:    7       
  223. *       * Variable:            abc                                
  224. *       * Called By:           VALID Clause                       
  225. *       * Snippet Number:      5                                  
  226. *       *                                                         
  227. *       *********************************************************
  228. *
  229. FUNCTION _qsh1881up     &&  abc VALID
  230. #REGION 1
  231. USE CLOSEUP
  232. GO 1258
  233. DO ZOOM.SPR
  234.  
  235. *       *********************************************************
  236. *       *                                                         
  237. *       * _QSH18820A           abc VALID                          
  238. *       *                                                         
  239. *       * Function Origin:                                        
  240. *       *                                                         
  241. *       * From Platform:       Windows                            
  242. *       * From Screen:         192,     Record Number:    8       
  243. *       * Variable:            abc                                
  244. *       * Called By:           VALID Clause                       
  245. *       * Snippet Number:      6                                  
  246. *       *                                                         
  247. *       *********************************************************
  248. *
  249. FUNCTION _qsh18820a     &&  abc VALID
  250. #REGION 1
  251. USE CLOSEUP
  252. GO 1259
  253. DO ZOOM.SPR
  254.  
  255. *       *********************************************************
  256. *       *                                                         
  257. *       * _QSH18825J           abc VALID                          
  258. *       *                                                         
  259. *       * Function Origin:                                        
  260. *       *                                                         
  261. *       * From Platform:       Windows                            
  262. *       * From Screen:         192,     Record Number:    9       
  263. *       * Variable:            abc                                
  264. *       * Called By:           VALID Clause                       
  265. *       * Snippet Number:      7                                  
  266. *       *                                                         
  267. *       *********************************************************
  268. *
  269. FUNCTION _qsh18825j     &&  abc VALID
  270. #REGION 1
  271. USE CLOSEUP
  272. GO 1260
  273. DO ZOOM.SPR